home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / ng_clone.zip / MAKE_SCR.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-20  |  1KB  |  52 lines
  1. program makescr;
  2. {Make screen template for NG_CLONE}
  3. uses dos,crt;
  4. type
  5.   textel=record                         {See NG_CLONE.PAS}
  6.     cha:byte;
  7.     att:byte;
  8.   end;
  9.   fiftylinebuf=    array[1..50,1..80] of textel;
  10.   halfbuf=    array[1..80] of textel;
  11.   twelwebuf=    array[1..12,1..80] of textel;
  12.   
  13. var
  14.   smallscreen:twelwebuf absolute $B800:$0000;
  15.   largescreen:halfbuf absolute $B800:$0000;
  16.   f:file;
  17.   i:word;
  18.   
  19. procedure frame(w,d:byte);
  20. begin
  21.   write('┌');for i:=2 to w-1 do write('─');write('┐');
  22.   for i:=2 to d-1 do
  23.     begin
  24.       gotoxy(1,i);write('│');gotoxy(w,i);write('│');
  25.     end;
  26.   write('└');for i:=2 to w-1 do write('─');write('┘');
  27. end;
  28.   
  29. begin
  30. assign(f,'ng_clone.scr');
  31.     {You may add a drive and/or directory, if desired}
  32. rewrite(f,1);
  33. textmode(259);
  34. window(1,1,80,12);textattr:= 27;clrscr;
  35. window(1,1,80,13);frame(80,12);
  36. gotoxy(1,3);
  37. write('├──────────────────────────────────────────────────────────────────────────────┤');
  38. textattr:= 27;
  39. gotoxy(80,4);write(#24);
  40. for i:=5 to 10 do
  41.   begin
  42.     gotoxy(80,i);write(#177);
  43.   end;
  44. gotoxy(80,11);write(#25);
  45. gotoxy(1,13);
  46. blockwrite(f,smallscreen,sizeof(smallscreen));
  47. for i:=1 to 80 do smallscreen[1,i]:=smallscreen[2,i];
  48. textattr:=$70;gotoxy(3,1);write('See also:');
  49. blockwrite(f,largescreen,sizeof(largescreen));
  50. close(f);
  51. end.
  52.